www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_admin_pinlun.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="css.css" type=text/css rel=stylesheet>
<%
dir_set="../"
%>
<!--#include file=../inc/conn.asp-->
<!--#include file=../inc/Functionb.asp-->
<!--#include file=../inc/ajaxLIB.asp-->
<!--#include file=inc/checkadmin1.asp-->
<!--#include file=../inc/functionFiless.asp-->
<!--#include file=../inc/ND_class_function.asp-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE4 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<%
biao="[ND_Article_class]"
biao2="[ND_pinlun]"
sys_content_type=trim(request("sys_content_type"))
lanmu_type=trim(request("lanmu_type"))
set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_type&"'",conn,1,1
if find_dataw(lanmu_type,rs44g("id"),6)<>"1" and qx_if_max=0 then
response.redirect "D_suodinguser.asp"
end if
%>
<br />
<div id="l_lists" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; width:730px">
<form action="D_admin_pinlun.asp" method="post" name="aa" id="aa" target="_self">
<table width="724" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="425" height="23">搜索：
<input name="keyword" />
条件：
<select name="qrr">
<option value="1" selected="selected">评论内容</option>
<option value="4">评论者ip</option>
<option value="2">评论者</option>
<option value="3">不限条件</option>
</select>
<input type="hidden" value="<%=lanmu_type%>" name="lanmu_type" />
<input type="hidden" value="<%=sys_content_type%>" name="sys_content_type" />
<input type="submit" value="搜索" />
</td>
<td width="274"> </td>
</tr>
<tr>
<td height="30" colspan="2" align="center"><table width="641" height="18" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="254" align="center" bgcolor="#EDF8FE"><a href="D_admin_pinlun.asp?isshenhed=1&sys_content_type=<%=sys_content_type%>&lanmu_type=<%=lanmu_type%>">选择已审评论</a></td>
<td width="387" align="left" bgcolor="#EDF8FE"><a href="D_admin_pinlun.asp?isshenhed=0&sys_content_type=<%=sys_content_type%>&lanmu_type=<%=lanmu_type%>">选择待审评论</td>
</tr>
</table></td>
</tr>
</table>
</form>
</div>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<%
if sys_content_type="" then
%>
<script language="javascript">
alert("url参数sys_content_type不能为空");
</script>
<%
response.end
end if
%>
<script language="javascript">
function delact(id){
if (confirm("确认删除?")==1){
self.location="D_del_pl.asp?id="+id+"&sys_content_type=<%=sys_content_type%>&lanmu_type=<%=lanmu_type%>&pageb=<%=request("page")%>";
}
}
function CheckAll(){
var dd=parseFloat(document.getElementById("len1").value);
for(var i=1;i<=dd;i++)
{
var dd1=document.getElementById("chec"+i);
dd1.checked=true;
}
}
</script>
<br />
<form action="D_piliang_pinlun.asp" method="post" name="ww" id="ww">
<!--#include file=adminchannel/D_inc_lanmu_type.asp-->
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="27" colspan="7">
<%call cc(lanmu_type)%> 评论管理>
</td>
</tr>
<tr>
<td width="4%" height="27" align="center" class="adminth"><span class="STYLE4">id</span></td>
<td width="3%" height="27" align="center" class="adminth"><span class="STYLE4">选择</span></td>
<td width="49%" align="center" class="adminth"><span class="STYLE4">评论内容</span></td>
<td width="13%" align="center" class="adminth"><span class="STYLE4">操作</span></td>
<td width="6%" align="center" class="adminth"><span class="STYLE4">审核</span></td>
<td width="12%" align="center" class="adminth"><span class="STYLE4">评论人ip</span></td>
<td width="13%" align="center" class="adminth"><span class="STYLE4">评论者</span></td>
</tr>
<%
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
maxperpage=15
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?classid="&request("classid")&"&isshenhed="&request("isshenhed")&"&iszhuanti="&request("iszhuanti")&"&keyword="&trim(request("keyword"))&"&sys_content_type="&sys_content_type&"&qrr="&request("qrr")&"&lanmu_type="&lanmu_type
sql2=""
if request("keyword")<>"" then
if request("qrr")="1" then
sql2=" and content like '%"&trim(request("keyword"))&"%' "
else
if request("qrr")="2" then
sql2=" and username like '%"&trim(request("keyword"))&"%' "
else
if request("qrr")="4" then
sql2=" and postip like '%"&trim(request("keyword"))&"%' "
else
sql2=" and username like '%"&trim(request("keyword"))&"%' or content like '%"&trim(request("keyword"))&"%' or postip like '%"&trim(request("keyword"))&"%' "
end if
end if
end if
end if
if request("isshenhed")="0" then
sql2=" and is_shenhe='0' "
end if
if request("isshenhed")="1" then
sql2=" and is_shenhe='1' "
end if
set Rs=server.CreateObject("adodb.recordset")
sql="select * from "&biao2&" where sys_content_type='"&sys_content_type&"' and lanmu_type='"&lanmu_type&"' "&sql2&" order by id desc"
Rs.open sql,conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to MaxPerpage
if Rs.eof then exit for
%>
<tr bgcolor="#EDF8FE" style="word-break:break-all">
<td width="4%" height="27" align="center"><%=rs("id")%></td>
<td width="3%" height="27" align="center">
<input type="checkbox" name="chec<%=ni%>" id="chec<%=ni%>" value="1" />
<input type="hidden" name="chec_id<%=ni%>" id="chec_id<%=ni%>" value="<%=rs("id")%>" />
</td>
<td width="49%" align="center" style="word-break:break-all"><%=left(n_RemoveHTML(rs("content")),200)%></td>
<td width="13%" align="center">
<a href="D_edit_pinlun.asp?id=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>&lanmu_type=<%=lanmu_type%>&pageb=<%=request("page")%>">编辑</a>
<a href=# onclick="delact('<%=rs("id")%>');">删除</a>
</td>
<td width="6%" align="center">
<%if rs("is_shenhe")="1" then%>
√
<%else%>
X
<%end if%>
</td>
<td width="12%" align="center"><%=rs("postip")%></td>
<td width="13%" align="center"><%=rs("username")%></td>
</tr>
<%
Rs.movenext
next
else
%>
<tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr bgcolor="#EDF8FE">
<td colspan="7">
<input type="hidden" id="len1" name="len1" value="<%=ni-1%>" />
<input type="hidden" id="sys_content_type" name="sys_content_type" value="<%=sys_content_type%>" />
<input type="hidden" id="pageb" name="pageb" value="<%=request("page")%>" />
<input type="hidden" id="lanmu_type" name="lanmu_type" value="<%=lanmu_type%>" />
<input class="Button" type="button" name="chkall" value="全选" onClick="CheckAll()">
管理选项：
<select name="dow">
<option value="0">请选择操作选项</option>
<option value="批量审核">批量审核</option>
<option value="取消审核">取消审核</option>
<option value="批量删除">批量删除</option>
</select>
<input class="Button" type="submit" name="Submit2" value="执行操作" onclick="return confirm('您确定执行该操作吗?')">
</td>
</tr>
<tr>
<td colspan="7" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
</table>
</form>
</div>
<script language=javascript>
AJAXfade(1,'l_list');
AJAXfade(1,'l_lists');
</script>
<%
AJAXcloseLoader()
%>